5 POKE53281,.:POKE53280,.:PRINTCHR$(147)CHR$(14)CHR$(8)
10 GOSUB61000
11 POKE214,9:PRINT:PRINT"       [154]??? [195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196] ???"
105 GOTO60000
110 :
10000 OPEN15,8,15,"S0:CBOOT 85":CLOSE15:SAVE"0:CBOOT 85",8:END
10010 :
60000 PRINT"[144]LOAD"CHR$(34)"PXWORD 85"CHR$(34)",8"
60025 PRINT"RUN"
60035 POKE631,13:POKE632,13:POKE633,13:POKE198,3
60040 NEW
60999 :
61000 POKE214,15:PRINT
61110 PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
61120 PRINT"  [152]                                    "
61130 PRINT"                                      "
61140 PRINT"                                      "
61150 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #85     "
61160 PRINT"      [211]UBSCRIPTIONS 1-800-831-2694    "
61170 PRINT"          [193]LL [210]IGHTS [210]ESERVED         "
61180 PRINT"                                      "
61190 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
61200 AU$=" [195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]  ":POKE214,17:PRINT
61205 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
61210 AU$="[194]Y [198].[212]UCKER/[194].[211]CHULAK ([195]) 1991":POKE214,18:PRINT
61220 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$"":RETURN